Chip 2002 March/Chip_2002-03_cd1.bin/tema/kubik/kubik.exe/{app}/Scripts/Eurotel.sms

Text File | 2001-12-26 | 1.7 KB | 43 lines

# Skript pro SMS branu Eurotel
# Verze 1.6

Param
  Version 1.6
  CountryCode 420
  Prefixes 601;602;606;607;723;724;728
  FirstMsgSize 150-E
  OtherMsgSize 150
  MsgCount 5
  MsgTime 30
End

Ident
  On n_email=\%MyEmail%
  Off n_email=
End

Flash
  On \%FindTextBetween("<b>Zp∙sob doruΦenφ</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\ size=\34\1\34\>", 150, 1)%=show
  Off \%FindTextBetween("<b>Zp∙sob doruΦenφ</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\ size=\34\1\34\>", 150, 1)%=sms
End

GetPage
  URL http://www2.eurotel.cz/sms/index.html?n_pagestyle=new
  Message NaΦφtßm ·vodnφ strßnku.
End

PostPage
  URL http://www2.eurotel.cz/sms/index.html
  Data \%FindTextBetween("<b>P°edvolba</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\\32\size=\34\1\34\>", 150, 1)%=\%Prefix%&n_number=\%PhoneNP%&\%Ident%&\%Flash%&\%FindTextBetween("<textarea cols=\34\50\34\ rows=\34\6\34\ name=\34\", "\34\ onBlur=\34\countit(this.form, 0)\34\", 100, 1)%=\%Message%&\%FindTextBetween("<input type=\34\submit\34\ name=\34\", "\34\ value=\34\Odeslat zprßvu\34\", 150, 1)%=Odeslat+zpr%E1vu
  Referer http://www2.eurotel.cz/sms/index.html
  Message Posφlßm zprßvu.
End

Msg
  if "ipravena a" Print "Zprßva je p°ipravena k odeslßnφ." Success
  if "na na SMS centrum." Print "Zprßva byla odeslßna." Success
  if "budete moci odeslat" Error "Zprßva bude odeslßna pozd∞ji." Queue
  if "ete, prosφm, zprßvu znovu.." Error "P°ipojenφ vyprÜelo, zprßva bude odeslßna znovu." Retry
End